(define-syntax x
  (lambda (exp env)
    (syn-car (syn-cdr exp))))

(define foo-1
  (print (x 420)))
